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XEROX 



THE "Bit BLT" package is a group of subroutines that implements various operations on display 
windows. Among their several uses are displaying characters, scrolling, and "painting" with brushes. 
The operations which can be performed using Bit BLT are not necessarily confined to uses with the 
Alto display, but the description below focuses on simple cases with the display in mind. More 
complicated possibilities are left to the reader to invent as necessity and curiousity dictate. The 
binary files required are available as BitBLTB.Br, BitBLTA.Br. BitBLT.Mb in <ALTO>BitBLT.Dm 
The sources, BitBLTB.Bcpl, BitBLTA.Asm, BitBLT.Mu are available on <ALTOSOURCE>. 

Definitions 

A bit map is a region of memory that describes a collection of scan-lines which have a base core 
address (bca) and bit map width (bmw), the later being a word value. Our discussion will assume 
that scan-lines run horizontally from left to right (bits are addressed from x = to x = bmw*16-l). 
Scan-lines appear consecutively in a bit map. Thus the point (0,0) is at the upper left of the 
display bit map — y p is the first scan-line, the next y = 1, etc. The core address of the first 
word of scan-line is bca. The number of scan-lines is not relevant, for the purposes of Bit BLT. 
(Note that these conventions are similar to those for the Alto display bit map; if bca and bmw are 
both even, the bit map may be displayed using standard Alto facilities.) 

A block is a rectangle within a bit map. It. has four corners which need not fall on word 
boundaries. Any given block is described by a block descriptor whose contents are: 

Bit map's base core address (bca) 
Bit map's width in words (bniw) 
Block's Leftx ("x offset") 
Block's Topy ("y offset") 
Block's Width 
Block's Height 

Thus the block is defined by: 

Leftx < X < Leftx + Width-1 
Topy < y < Topy + Height - 1. 

It is left to the caller to insure that ranges of x and y indeed fall within the bit map. 



The Bcpl routine contains a structure declaration for managing this descriptor: 

structure BITRECTANGLE : 

[ 

bca 

bmw 

Lef tx 

Topy 

Width 

Height 

] 

A block is sometimes used to designate a sequence of bits in memory, such as a 16 wide by 14 high 
region containing the bit pattern of a font character. In this case, bca points to the font character, 
bnivv is 1, X and y are 0, width is 16, and height is 14. 

Block Operations 

From Bcpl, one uses the call: 

FillBitMap(lv destination, function, Iv source, gray). 
The destination is a pointer to a BITRECTANGLE structure. 
The function is encoded as operation + source-type. The operation codes (2 low-order bits) are: 

replacefunction: Destination <- Source 

1 paintfunction: Destination <- Source ior Destination 

2 invertfunction: Destination <- Source xor Destination 

3 erasefunction: Destination <- not Source and Destination 

These names and values are declares as manifests in the Bcpl routine. 
The source-types (next 2 bits) are: 

blocksource: A block of a bit map 

4 compblocksource: The complement of a block of a bit map 
8 brushsource: A block as a brush with a gray 

A brush emits gray where the brush 
is 1, and a copy of the destination 
(transparency) where the brush is 
12 constantsource: A gray 

A gray is a one-word item of four 4-bit bytes that defines a 4-by-4 repeating bit pattern to be 
used as a source. A solid constant source is specified with a gray whose four fields are equal. 
(Note: The pattern always repeats so as to start at x and y positions in the destination that are even 
multiples of 4. Thus several adjoining blocks filled with the same gray pattern will not show a 
ragged halftone phase seam between them.) 

There are several manifests declared defining a collection of useful values as constant sources: 

black = -1 

darkestgray = #76575 

darkergray = #165727 



darkgray 


= 


#125125 


gray 


= 


#55132 


lightgray 


= 


#36074 


lightergray 


= 


#12050 


lightestgray = 


#101202 




white 


= 


' 


texturel 


= 


#27164 


texture2 


s 


#154033 


texture3 


= 


#31714 


texture4 


s 


#63 


textures 


= 


#177714 



The source depends on the source type: 
0.4 



12 



A pointer to a block descriptor 
A pointer to a block descriptor 
and a gray 
A gray 



For source types and 4, the source width and height are ignored and a simple transfer between 
equally-sized rectangles is performed. 

The routine first considers the possibility of source-destination overlap and decides in which order 
to transfer words. It also generates masks and counts to be used in the transfer loops. Then a lower 
level routine is called which jumps into microcode if the RAM is loaded; otherwise it does the work 
in novacode. The check for whether or not the microcode is present is performed every time the 
lowerlevel routine (FillBits) is called. 

Timing Details 

The microcode has roughly the following speed characteristics: 

Horizontally, along one raster line (so to speak) 

Store constant 15 cycles/word 

Move block (store) 36 cycles/word 

Move block (OR) 42 cycles/word 

Vertical loop overhead (time to change raster lines) 

25-30 cycles, depending on source/dest alignment 
Initial setup overhead (time to get going or resume from interrupt) 

approx 150 cycles 

These are all in terms of Alto minor cycles and do include all memory wait time and do not 
include any degradation due to competing tasks, such as the display or disk. 



Interim Details 

The microcode is not presently interruptable, and consequently large operations will cause significant 
delays in interrupt service (like 1/4 second to move most of the screen). This will be relieved 
shortly by allowing the microcode to save its state in the ACs and emerge to the nova emulator, 
later to resume where it left off. 

The machine code is not presently reentrant, and consequently will crash if you try to use it in 



separate processes. We do not intend to alter this situation since the microcode modification cited 
above will permit reentrant operation. 



;//FILE MAINTENANCE 
.//April 20, 1976 



BBSCAN.SR 



://Notes and Code — BitBIt and Scan Conversion — D. MERRY 
;//The formal format for the table associated with BitBIt looks as follows: 



//o 
// 


FUNCTION 


//I 


"GRAY" 


//2 


DESTINATION CORE BASE 


//3 
// 


DESTINATION RASTER 


//4 


DESTINATION X 


//5 


DESTINATION Y 


//6 


, WIDTH 


//7 


HEIGHT 


//lO 


SOURCE CORE BASE 


//ll 


SOURCE RASTER 


//12 


SOURCE X 


//13 


SOURCE Y 


//14 

// 

// 


SCRATCH GRAY 


//15 


SCRATCH GRAY 


//16 


SCRATCH GRAY 


//17 


SCRATCH GRAY 



First address must be on even 
word boundary 

One- word constant defined by user 



Width in "Nova" words of 
destination rectangle 



In bits 
In bits 



Four locations for building gray 

words for 

microcode 



;//rhe formal of the "strike" font is the simple case of Cvpress Glyphs as described 

;//in the FONT FORMAT memo of January 29. 1976. <MERRY>SrRIKEFORMAT.BRAVO 

If high order bit on, it's a "strike" 
format font, otherwise it's in .AL 
formal. For the simple case only the 
high order bit can be on in the strike 
format. 

Width of the widest character 



//o 

// 

// 

// 

// 


FORMAT 


//I 


MAXIMUM WIDTH 


//2 


ASCENT 


//3 
// 


DESCENT 


//4 
// 


XOFFSET 


//5 
// 
// 
// 


MIN 


//6 

// 

// 

// 

// 


MAX 


//I 


NSEGS 


//lO 
// 
// 
// 


SEGMENT WIDTH 



Ascent + Descent 
(Fontheight) 



Segheight 



Negative for kerned font, 
normally. 

Smallest legal Ascii in this font. 
Characters less than Min not used 
for some sort of control by the user 
Vi'ill be displayed as illegal character 

Largest legal Ascii in this font. 
Max + 1 will probably be the "Shazam' 
character which will be displayed 
whenever a character greater than 
Max is requested. 

Must be 1 in the simple case 

Total width of font in bits. 
This value + 15 and divided by 16 
yields the raster value for BitBlit. 
(simple case) 



;//ll 

://12 

;//13 

;// 

;// 

;// 

;// 

:// 



PINCH TOP 
PINCH BOTTOM 
CHARPOINTERS 



SEGMENT 



in simple case. 

in simple case. 

MIN thru MAX+2, indexed by Ascii. 
Value is left x of selected glyph. 
MAX + 1 is the "illegal" character 
and MAX + 2 the right x of 
"illegal" character. 

((Segwidth + 15)/ 16) * segheight 



;//The 
://the " 

://o 

;// 

:// 

;//l 
;// 

://2 
:// 

://3 

;//4 

;// 

;// 

://5 

;// 

.// 

;//6 

;//7 

.//lO 
;// 

.//ll 

;//12 

;//13 

://i4 
;// 

;//15 

;//16 

;//17 

;//20 

://21 

://22 

;//23 
;// 

,7/24 

;// 

;//25 

;// 

;// 

;// 

;// 

;// 

;// 
;// 
;// 
:// 



following is code for scan conversion of characters 
'strike" font format. The table passed to BitBIt will 

FUNCTION 



"GRAY* 

DESTINATION CORE BASE 

DESTINATION RASTER 
DESTINATION X 

DESTINATION Y 

WIDTH 

HEIGHT 

SOURCE CORE BASE 

SOURCE RASTER 
SOURCE X 
SOURCE Y 
SCRATCH GRAY 

SCRATCH GRAY 
SCRATCH GRAY 
SCRATCH GRAY 
SAVE ACl 
SAVE AC2 
SAVE AC3 
BITBLT FONT 

CHARACTER 

CHANGE 



WIDTH SUBROUTINE 



using BitBIt and 
looK like this: 

May vary with each character — set 
by user. This location must be on 
even word boundary. 

Only relevant if "painting" 
characters, i.e. Function > 7. 

First word address of memory used 
for Alto display 

Width of Display in "Nova" words 

Must be set by user for every 
"new line", updated by routine on 
each character. 

Set by user — will typically 
have "fonthcight" added to it for 
a new line 

Computed — Ascii+l's x - Ascii's x. 

Fontheight 

Pointer to the bits of the font — 
created by some setup routine 

(Segmentpointer + 15) / 16 

Value in location Charpointers + Ascii 



Place for Scratch Grays in case 
painting font. 



Place to save AC's. 



Place to keep pointer to font whilst putting 
out a string of characters. 

Place to hold character code, to 
facilitate exception checking. 

Zero means there has been no change 
in the font, the function, or the "gray" 
since the last time a string was scan 
converted. > means to set up BBSTABLE 
according to information provided in 
SCANTABLE passed in ACl. 

Pointer to subroutine which when called 
will return width of character passed in 
ACO — expects pointer to BBSTABLE 
in AC2 



// 
II 
II 


HEIGHT SUBRO 


Hid 

II 
II 


SCAN SUBROUT 


1121 
II 


SAVE GRAY 
(TEMPI) 


//30 
II 


GRAY COUNT 
(TEMP2) 


in\ 

II 

II 

II 

II 


TRAIL CHARS 
CROSSLEFT 


II 


CROSSRIGHT 


II 


RIGHTMARGIN 


II 
II 
II 


MEASURE 


II 


TEMP3 


II 
,11 


LASTVISIBLE 



Pointer to subroutine which when called 

will return height of font — 

expects pointer to BBSTABLE in AC2 

Pointer to subroutine which will make call 
on BitBIt ~ depends on the kind of font 
being used. 

Only necessary if going to 
have "gray" characters 

Ditto 



Needed only for justification in Smalltalk. 
Signals whether there have been non-space 
characters since the last space — helps to 
deal with multiple spaces. 
Used in Smalltalk for window clipping 

Ditto 

Ditto 

Smalltalk switch ~ so'that PUTCHARS code 
can be used both for measuring and scan 
converting 

Needed only if .AL fonts expected 



For returning last visible character 
when clipping occurs 



//The format of the SCANTABLE passed in ACl whenever there is a call for 
//putting a string of characters is or setting up the BBSTABLE in preparation 
//for a call for displaying a string of characters is as follows: 



110 


FUNCTION 


in 


GRAY 


111 


FONT 


in 


DESTINATION X 


HA 


DESTINATION Y 


lis 


STRING TABLE 


II 




II 




II 





OR. STORE, etc. 

Meaningful only if FUNCTION >7. 

Pointer to first word of font. 

Beginning X of first character of STRING. 

"Top" Y of first character of STRING. 

Pointer to table with following format: 

STRING POINTER 

BEGINNING CHARACTER (BYTE) 

LAST CHARACTER 



//The following code will probably eventually check to see if the font has 
//been set up and call setup code if necessary. In any event it assumes 
//the following contain appropriate values: 



//FUNCTION 

//"GRAY" 

//DESTINATION CORE BASE 

//DESTINATION RASTER 

//DESTINATION X 

// 

// 

//DESTINATION Y 

//HEIGHT 

//SOURCE CORE BASE 

//SOURCE RASTER 

//SOURCE Y 

// 

//The Ascii value is received in ACO and 



Usually "or" or "store" 
Usually not relevant 

Usually upper left hand corner display word ad 
"Display width" 

Set by user for first character in line — 
updated by this routine for subsequent characters 
in line 

Set by user line by line 
Fontheight — set once per font 
First word ad of font bits — set once per font 
Width of font bits in words — set once per font 
Always in the simple case 

a pointer to the BitBIt table in ACL 



.TITL STRIKESCAN 

.GETNOLIST "SMALL.OPS" 
.GETNOLIST "SMALLSYMS" 
.GETNOLIST "SMDISP.SYMS" 



://.BEXTZ 
://.BEXT 



.SREL 
SETSCAN: 



.SMF -DECLARED IN SMALL.SYMS 

SETSCAN. PUTCHARS. DISPAD, DISPWD.DOJST 

;//--DECLARED IN SMDISP.SYMS 



SETSCANC 



PUTCHARS: PUTCHARSC 

DISPAD: 

DISPWD: 



EXCEPT: EXCEPTC 

CLIP: CLIPC 

STRIKESCAN:STRIKESCANC 
ALSCAN: ALSCANC 

DOJST: DOJSTC 



.NREL 

C7: 
C13: 

.DSPAD: 
.DSPWD: 

BITBLT 



7 

13 

DISPAD 

DISPWD 



;//LOCAL SRELS 



60400 



;//OFFSETS DEFINED IN SMDISP.SYMS 

//FUNC = 

//GRAY = 1 

//DBASE = 2 

//DRAST = 3 

//DESTX = 4 

//DESTY = 5 

//WIDTH = 6 

//HEIGHT = 7 

//SBASE = 10 

//SRAST = 11 

//SRCX = 12 

//SRCY = 13 

//GRAYl = 14 

//GRAY2 = 15 

//GRAY3 = 16 

//GRAY4 = 17 

//SAVl = 20 

//SAV2 = 21 

//SAV3 = 22 

//BBFONT = 23 

//CHAR = 24 

//CHANGE = 25 

//WIDTHSUBR = 26 

//HEIGIITSUBR = 27 

//SCANSUBR= 30 

//SAVGRAY = 31 

//GRAYCNT = 32 

//TEMPI 

//TEMP2 

// 

//TRLCHR = 33 

//CROSSLEFT 

//CROSSRIGHT 

//RIGIITMARGIN 

//MEASURE = 37 

// 

// 

//TEMP3 

// 

//LASTVISIBLE 

// 

// 

//;//FUNC = 

//;//GRAY = 1 

//FONT 

//DX 

//DY 

//STRINGTAB 

// 

//FORMAT = 

//MAXWIDTH 

//ASCENT = 2 

//DESCENT = 3 

//XOFFSET = 4 

//MIN 



;//OFFSETS INTO BBSTABLE 



31 -.//SHARED WITH 'GRAY' LOCATIONS — 

32 ;//USED MOSTLY FOR SAVING RETURNS 
;//IN SMALLTALK UTILITY SUBROUTINES 

://USED WITH SMALLTALK JUSTICATION 

34 ;//FOR SMALLTALK WINDOW CLIPPING 

35 

36 

://SMALLTALK SWITCH -- SO PUTCHARS 

//CAN BE USED BOTH FOR MEASURING 

//AND SCANNING 

//NEEDED ONLY IF .AL FONTS 

//MIGHT BE USED 

//LASTVISIBLE CHARACTER FOR CLIPPING 



40 



41 



;//OFFSETS INTO SCANTABLE 



;//OFFSETS INTO FONT 
1 



//MAX 


= 


6 


//NSEGS 


- 


7 


//SEGWIDTH 


= 


10 


//PINCHTOP = 


11 




//PINCMBOT = 


12 




//CHARPTRS 
/ / 


= 


13 


// 






//BBSTABLEA: 


.BLK 41 


;// 



;//ALLOCATED IN DSPGLBS.SR 

//SETSCAN SETS UP AS MUCH OF BITBLT'S TABLE AS POSSIBLE. 

//IT WILL BE CALLED WHENEVER THERE IS A FONT CHANGE. A FUNCTION CHANGE. 

//OR A "GRAY" CHANGE. IT MUST BE CALLED ONCE BY THE USER IN ORDER 

// TO GET THE BBS! ABLE ONTO AN EVEN WORD BOUNDARY. THEREAFTER. 

//PUTCHARS WILL CHECK THE CHANGE LOCATION IN THE BBSTABLE TO 

//DETERMINE IF IT NEED BE CALLED. THE CALL EXPECTS: 

// ACO ~ POINTER TO BLOCK OF 31 (OCTAL) WORDS FOR BITBLT TABLE 

// ACl ~ POINTER TO SCANTABLE: 

// FUNCTION 

// GRAY 

// FONT 

// 

// 

// (STRINGTAB) 

// AC2 ~ STACK FRAME PTR IN BCPL 

// -1 OF LOCATION TO SAVE RETURN PTR IF CALLED FROM ASM 

//AC3 UPON RETURN WILL CONTAIN A PTR TO THE BITBLT TABLE FORCED TO AN 

//EVEN WORD BOUNDARY -- WHICH ONE WILL PROBABLY WANT TO SQUIRREL 

//AWAY 



(DX) 
(DY) 
(STRI 



//FOR A STRIKE FONT. THE ROUTINE WILL ESTABLISH: 

// FUNCTION 

// GRAY 

// DESTINATION CORE BASE 

// DESTINATION RASTER 

// HEIGHT 

// SOURCE CORE BASE 

// SOURCE RASTER 

// SOURCE Y 

// BBFONT 

// SCAN CONVERSION SUBROUTINE 

// 

//FOR AN AL FONT. THE ROUTINE WILL ESTABLISH 

// FUNCTION 

// GRAY 

// DESTINATION CORE BASE 

// DESTINATION RASTER 

// HEIGHT 

// SOURCE RASTER 

// SOURCE X 

// SOURCE Y 

// BBFONT 

// SCAN CONVERSION SUBROUTINE 

// 



.GETWDSTRK: GETWDSTRK 


.GETHTSTRK 


: GETHTSTRK 


.STRIKESCAN: STRIKESCAN 


.GETWDAL: 


GETWDAL 


.GETHTAL: 


GETHTAL 


.ALSCAN: 


ALSCAN 


JMASK: 


7417 


C15: 




NIBMASK: 


17 


DOGRAY: 






STA 3,SAV3.2 ; 




LDA 3.DESTY.2 




LDA 1.SRCY.2 




SGE 3.1 




JMP NOINVERT 




LDA 3.JMASK ; 




AND 0,3 




SUBS 0.3 ; 




ADDS 3.0 




NEG 1.1 


NOINVERT: 






LDA 3,HEIGHT.2 




ADD 3,1 




LDA 3,C3 




AND 3,1 : 



//BBSTABLE PASSED IN AC2 

//MOSTLY A COPY OF DAN INGALLS CODE 

//HERE BELOW 



//INVERT NIBBLE ORDER 
//A B C D BECOMES 
// A D C B 



//SRCY - HEIGHT MOD 4 



GRAYLOOP: 



ADDZL 1,1 

CYCLE 

STA O.SAVGRAY,2 

LDA 1.C4 

STA 1,GRAYCNT.2 

MOV 2,3 



LDA 0,SAVGRAY,2 

CYCLE 4 

STA 0,SAVGRAY,2 

LDA l.NIBMASK 

AND 1.0 

MOV 0.1 

CYCLE 4 

ADD 1.0 

MOVS 0.1 

ADD 1,0 

STA 0.GRAY1.3 

INC 3.3 

DSZ GRAYCNT.2 

JMP GRAYLOOP 

JMP @SAV3,2 



//* 4 

//IS HOW MUCH TO ROTATE GRAY 

//SAVE IT IN BBSTABLE TEMP 

//SET UP COUNTER FOR FILLING SCRATCH WORDS 

//GRAY PASSED IN ACO 

//GET BBSTABLE INTO AC3 SO COUNT DOWN IN 

//GRAYLOOP WILL WORK 

;//GET HIGH ORDER NIBBLE INTO LOW ORDER 

;//SAVE FOR NEXT PASS 

//MASK OFF LOW ORDER NIBBLE 
//SAVE IN ACl 

//MOVE NIBBLE A NIBBLE TO LEFT 
//NOW ACO + ACl MAKE A BYTE 
//MAKE HIGH ORDER BYTE 
//NOW ACO + ACl MAKE A WORD 
//SAVE IT 
//BUMP PTR 



SETSCANC: 



NOGRAY: 



STA 3.1.2 
MOV 0.3 

SKEVEN #3.3 SZC 
INC 3.3 
STA 2.SAV2.3 
MOV 3.2 
MOV 1.3 
LDA O.FUNC,3 
STA O.FUNC,2 
LDA 1.C7 
SGT 0.1 
JMP NOGRAY 
LDA 0.GRAY.3 
STA 0.GRAY.2 
STA 3.SAV1.2 
JSR DOGRAY 
LDA 3.SAV1.2 

LDA 0.@.DSPAD 

STA O.DBASE,2 
LDA 0.@.DSPWD 
STA 0,DRAST,2 
LDA 3.FONT.3 
STA 3,BBFONT,2 
MKZERO 0.0 
STA 0,SRCY.2 
STA O.CHANG E,2 
LDA 0,FORMAT,3 
MOVZL #0,0 SNC 
JMP SETAL 
LDA 0.ASCENT,3 
LDA 1,DESCENT.3 
ADD 0.1 

STA 1.HEIGHT.2 
LDA O.MIN,3 

LDA 1.MAX.3 

INC 1.1 

INC 1.1 

INC 1.1 

SUB 0.1 

LDA 0.C13 

ADD 1,0 

ADD 3.0 

STA 0,SBASE,2 

LDA 0,SEGWIDTH,3 

LDA 1,C15 

ADD 1,0 

MOVZR 0,0 

MOVZR 0,0 

MOVZR 0,0 

MOVZR 0.0 

STA 0,SRAST,2 

LDA 0,@.GETWDSTRK 

STA 0,WIDTHSUBR,2 

LDA 0,@.GETHTSTRK 

STA 0,HEIGHTSUBR.2 



•.//INSURE ON EVEN WORD BOUNDARY 

;//SAVE AC2 - MOSTLY FOR BCPL 

;//GET BBSTABLE IN AC2 

-.//GET SCANT ABLE IN AC3 

;//SET UP FUNCTION 

://IF FUNCTION >7 DO GRAY SHUFFLE 



;//SAVE PTR TO SCANTABLE WHILE DOING GRAY FIX 
;//SAVl HAPPENS TO BE AVAILABLE 

;//RESOTRE SCANTABLE INTO AC3 

//BEGINNING AD OF DISPLAY -- MOST LIKELY 

//A GLOBAL IN SREL OR ZREL 

//THAT'S THE CORE BASE FOR BB'S DESTINATION 

//LIKEWISE DISPLAY WIDTH IS RASTER FOR 

//BB'S DESTINATION 

//BBSTABLE NEEDS ITS OWN PTR TO THE FONT 

//SOURCE Y IS ZERO 

//TURN OFF CHANGE SWITCH 

//HIGH ORDER BIT OF FIRST WORD OF FONT TELLS 

//US IF STRIKE OR .AL FORMAT. 1=STRIKE. 0=.AL 

;//IF STRIKE COMPUTE HEIGHT OF FONT 



://SOURCE BASE ADDRESS FIRST 
;//WORD OF GLYPHS 

://MAX+2 - MIN + TOP OF XTABLE GET TO GLYPHS 



;//(SEGMENT WIDTH + 15) / 16 = SOURCE RASTER 



;//SET UP WIDTH GETTING ROUTINE 
://SET UP HEIGHT GETTING ROUTINE 



SETRTN: 



SETAL: 



LDA 0,@.STRIKESCAN 

STA O.SCANSUBR,2 

MOV 2.3 
LDA 2,SAV2,2 



JMP @1.2 



PUTCHARSC: 



NOCHANGE: 



;//PASS BACK PTR TO SCAN CONVERTING SUBR IN 
;//BBSTABLE 

://RESTORE AC2 -- AC3 CONTAINS 

://PTR TO BBSTABLE 

•.//WHICH CALLER WILL WANT TO SQUIRREL AWAY 



;//MAKE BBFONT POINT AT FIRST TABLE ENTRY 



INC 3.3 
INC 3.3 

STA 3.BBFONT.2 
MKONE 0.0 
STA 0.SRAST.2 
MKZERO 0.0 
STA 0.SRCX.2 
LDA 0,@.GETWDAL 
STA 0.WIDTHSUBR.2 
LDA 0.@.GETHTAL 
STA O.HEIGHTSUBR.2 
LDA 0.@.ALSCAN 
JMP SETRTN ;//PASS BACK PTR TO SCAN CONVERTING SUBR 

://BBSTABLE 



;//SET UP WIDTH GETTING ROUTINE 
://SET UP HEIGHT GETTING ROUTINE 



IN 



STA 3.1.2 

MOV 0.3 

LDA 0.CHANGE,3 

SGZ 0,0 

JMP NOCHANGE 

LDA 0.1.2 

STA O.SAV3.3 

MOV 3.0 

JSR SETSCANC 

LDA O.SAV3,3 

STA 0.1,2 

STA 2.SAV2.3 

MOV 3.2 
MOV 1.3 
LDA 1.DX.3 

STA 1.DESTX.2 
LDA 1.DY.3 
STA 1.DESTY.2 
MKZERO 1.1 

STA 1.WIDTH.2 
LDA l.STRINGrAB.3 
LDA 0.SCANSUBR.2 



//CHECK IF FONT. FUNCTION. OR GRAY CHANGED 
//SINCE LAST USE OF THIS TABLE 

//IF CHANGE SAVE RETURN PTR FOR PUTCHAR 

//IN BBSTABLE AND CALL 

//SETSCAN WITH PTR 

//TO BBSTABLE IN ACO -- PTR IN SCANTABLE 

//STILL IN ACl 

//RESTORE RETURN PTR — 

//BOMBED BY SETSCAN 



//SAVE PTR TO AC2 IN BBSTABLE — 

//FOR BCPL 

//BBSTABLE IN AC2 

//SCANTABLE IN AC3 

//SET UP DESTINATION X OF FIRST 

//CHAR IN STRING 

//AND TOP Y 

//WIDTH GOES INTO SCAN 
//CONVERSION AS ZERO 

//PTR TO STRING TABLE IN ACl FOR SMF 
//SCAN CONVERSION SUBR CALLED BY SMF 



//SMF (SUBSTRECTOR-MAP-FETCH) IS AN ENTRY 
//LARRY TESLER — 



IN A STRING PACKAGE WRITTEN BY 



//GOING 

// 

// 

// 

// 

// 

// 

// 



IN: 



ACO 



ACl 



AC2 



PTR TO SUBROUTINE (MAP FUNCTION) TO BE CALLED 

WITH EACH CHARACTER 
PTR TO STRING TABLE: 

STRING POINTER 
FIRST CHARACTER (BYTE PTR) 
LAST CHARACTERT(BYTE PTR) 
TRANSPARENT 

//THE 1 FOLLOWING THE JSR MEANS WE'RE LOOKING AT A STRING AND 
//PROCEEDING FROM FIRST TO LAST 

//A -1 WOULD MEAN TO PROCEED FROM LAST TO FIRST 
// 

// EACH TIME SMF CALLS THE DESIGNATED SUBROUTINE WITH AN 

// ASCII VALUE IN ACO AND THE CURRENT CHARACTER (BYTE PTR) 

// IN ACl 

// 

//A NOSKIP RETURN MEANS THAT THE STRING HAS BEEN EXHAUSTED — EITHER 
//LAST CHARACTER REACHED OR BEYOND LENGTH OF STRING. A SKIP RETURN 
//IS CAUSED BY A SKIP RETURN FROM THE USER'S SUBROUTINE. I ASSUME THERE 
//ISA SIMILAR PACKAGE FOR PUMPING STRINGS IN BCPL 



JSR @.SMF 

1 

SKIP 



//NOSKP - SUBSTRG EXHAUSTED 

//FOR MEASURING 

//ACO = CHAR CODE 
//ACl = BYTE PTR 



RETURN: 



JMP RETURN ;//SKP RTN FROM STRIKESCAN MEANS STOP PICKING 

LDA 3..DSPGLBS ://WHEN SUBSTRING EXHAUSTED AGO ♦- NIL 

NIL 0.0 ;//AND NSPC GETS NIL TO TURN OFF JUSTIFICATION 

STA NSPC 3 

LDA 1,SAV1,2 ://AND ACl GETS BYTE PTR + 1 - WHEN SUBSTRG 

INC 1.1 ;//SMF DOES NOT RETURN BYTE PTR 



LDA 2.SAV2,2 
JMP @1,2 



STRIKESCANC: 



NOSCAN: 



STA 3.SAV3.2 ;//BBSTABLE IN AC2 



LDA 3,BBFONT,2 
STA 0.CHAR.2 
STA 1,SAV1.2 

LDA l.MIN,3 

SGE 0.1 

JSR EXCEPTC 

LDA 1.MAX.3 

SLE 0.1 

INC 1.0 

STA 0,CHAR,2 



//CHECK FOR 'LEGAL' ASCII 
//EXPEDIENT -- MAY NOT BE NEEDED 
//DITTO ~ BUT REQUIRED IN SMALLTALK 
//CURRENT BYTE PTR FROM SMF HERE 



://MAX + 1 IS 'ILLEGAL' CHARACTER 



//EXCEPTION CODE. E.G. FOR CR.SPACE.ETC. 
//COULD BE PUT HERE --FOR SMALLTALK 
//EXCEPTION CHARACTERS WILL BE KNOWN BY 
//THEIR ZERO WIDTH 



LDA l.MIN,3 ;//SUB MiN FROM CHAR CODE - 
SUB 1,0 ;//CORRECT 



SO INDEXING 



LDA 3.WIDTH,2 

LDA 1,DESTX.2 

ADD 1.3 

STA 3.DESTX.2 

LDA 3,BBFONT.2 

ADD 0.3 

LDA 1.CHARPTRS.3 

STA l.SRCX,2 

LDA O.CHARPTRS+1.3 

SUB 1,0 

STA O.WIDTH,2 

SNZ 0,0 

JSR EXCEPTC 

JSR CLIPC 

JMP NOSCAN 

MOV 2,0 
ZER LI 
BITBLT 
MOV 0.2 

JMP @SAV3,2 



;//UPDATE DESTX--WIDTH FIRST TIME—SET IN 
•.//PUTCHARS 



://SET UP SOURCE X 



;//SET UP WIDTH 
://NEXTX - TIIISX 



;//BBSrABLE SENT IN ACO FOR NOW******* 
://AND ACl IS FLAG********* 

://PUT TABLE BACK IN 2 CAUSE SMF BOMBS 3 



CLIPC: 



SPCIT: 



MOV 3.1 

STA 1.TEMP1.2 
LDA 0.CHAR.2 
LDA LSPACE 
SNE 0.1 
JMP SPCIT 
ISZ TRLCHR.2 

NOP 

LDA l.WIDrH.2 

LDA 0.DESTX.2 

LDA 3.CROSSLEFT.2 

SLT 0,3 

JMP CHKRTl 

ADD 0.1 

MOV 1.0 

SGT 1,3 

JMP RTN 

SUB 3,1 

LDA 3.WIDTH,2 
STA l.WIDTH,2 
SUB 1,3 



;//SUBR FOR WINDOW CLIPPING 

;//SAVE RETURN - BBSTABLE COMES IN AC2 



//INDICATE NON-SPACE CHAR - HELP DEAL 
//WITH MULTIPLE SPACES IN JUSTIFICATION 
//SOMETIMES USED AS NIL FLAG — ARGHH!! 

;//CHECK DESTX VISIBLE 

//CROSSLEPr SET UP BEFORE PUTCHARS CALLED 

//IF DESTX GE CROSSLEFT THEN CHECK 

//CROSSRIGHT 

//OTHERWISE ADD IN WIDTH 

//GET IN BOTH ACO AND ACl 

//IF STILL NOT CROSSLEFT 

//THEN NOSKIP RTN AVOIDS BITBLT CALL 

//IF SPANNING CROSSLEFT PRUNE SRCX 

//TO GET PARTIAL CHARACTER 

;//DIFF BETWEEN CROSSLEFT AND RIGHTX IS WIDTH 
;//WIDTH - DIFF TO BE ADDED TO SRCX AND DESTX 



CHKRTl: 



CHKRT2: 



PRUNE: 



CUKCHAR: 



CHKEDGE: 



SKPRTN: 



RTN: 



LDA 1,SRCX.2 
ADD 3.1 
STA l.SRCX,2 
LDA 1.DESTX.2 
ADD 3.1 
STA l.DESTX,2 
JMP CHKRT2 

LDA 3.CROSSRIGHT.2 
SLE 0.3 
JMP RTN 
ADD 1,0 



LDA 3.RIGHTMARGIN,2 

LDA 1.CR0SSRIGUT.2 

SNNIL l.l 

JMP CHKEDGE 

SLT 1 3 

JMP CHKEDGE 

SGT 0.1 

JMP CHKCHAR 

NIL 3.3 

STA 3.CROSSRIGHT.2 



LDA 3.SAV1,2://PRUNED 

STA 3.LASTVISIBLE,2 

SUB 1.0 

LDA 1.WIDTH.2 

SUB 0.1 

STA 1. WIDTH. 2 

LDA 0.CHAR.2 
LDA l.SPACE 
LDA 3.TAB 
SEQ 0,1 
SNE 0.3 
JMP RTN 
JMP SKPRTN 

MOV 3.1 

LDA 3.CROSSRIGHT.2 

SNNIL 3,3 

JMP RTN 

SGT 0.1 

JMP CHKCHAR 

NIL 3.3 

STA 3.TRLCHR,2 

JMP PRUNE 



LDA 1,MEASURE,2 
SZE l.l 
JMP MRTN 
LDA 3.TEMP1,2 
JMP 1,3 



LDA 1.MEASURE.2 
SZE 1.1 
JMP MRTN 
JMP @TEMP1,2 



;//AND DESTX 

://AND CHECK RIGHT BOUNDARIES 

;//CHECK HERE IS INITIAL DESTX OFF RIGHT 

;//NOSKIP RTN AVOIDS BITBLT CALL 
://ADD IN WIDTH FOR NEXT CHECK 



;//NOW CHECK FOR SPANNING CROSSRIGHT 

;//IF CROSSRIGHT NIL— WE'VE ALREADY CROSSED IT 

://S0 CHECK RIGHTMARGIN — SO MEASURING WORKS 

;//IF CROSSRIGHT LESS THAN RIGHTMARGIN 

;//IF EQUAL CHECK SPANNING OF RIGHTMARGIN 

;//IF WITHIN CROSSRIGHT SCAN IN 

;//OTHERWISE SET CROSSRIGHT TO NIL AND 
://PRUNE 

CHARACTER WILL BE LAST VISIBLE 
//MAINLY FOR SMALLTALK PURPOSES 
://IF SPANNING CROSSRIGHT OR RIGHT MARGIN 
//PRUNING WIDTH WILL GET PARTIAL CHAR 



;//SKPRTN WILL CALL BITBLT 

;//IF ALREADY CROSSED RIGHT DONT SCAN 

;//IF SPANNING RIGHT MARGIN THEN PRUNE 

;//NIL TRAIL CHAR COUNT AS FLAG FOR STOPPING 
;//AT MEASURING TIME 
;//AND GO PRUNE 

//ACO PRESERVED HERE FOR MSE FINDING ROUTINES 

//FIRST SEE IF WE'RE MEASURING — DIFFERENT RTN 

;//SKPRTN MEAN SCAN IT IN 



//ACO PRESERVED HERE FOR MSE FINDING ROUTINES 
//FIRST SEE IF WE'RE MEASURING - DIFFERENT RTN 



;//NOSKP MEANS NO SCAN 



://EXCEPTION CODE — HANDLES CR, TAB. AND SPACE 



EXCEPTC: 



MOV 3.1 

STA 1. TEMPI, 2 

LDA 3,.DSPGLBS 

LDA O.CHAR,2 

LDA l.SPACE 

SNE 0.1 

JMP DOSPACE 

LDA l.TAB 

SNE 0,1 

JMP DOTAB 

LDA l.CR 

SNE 0.1 

JMP DOCR 

ZER 0,0 



;//BBSTABLE COMES IN AC2 
;//FOR SMALLTALK 
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ST A O.WIDTH,2 
LDA 0,C257 

LDA 3,SCANSUBR,2 
JMP 1,3 



//RECALL SCAN SUBR 
://WITH ILLEGAL CHAR 

;//+! TO KEEP SCANSUBR'S RETURN CORRECT 



DOSPACE: 



DOJSTC: 



LASTJST: 
JUSTIT: 



LDA O.MEASURE,2 

SZE 0.0 

JMP MSPACE 

LDA O.THISLINE,3 

SGZ 0,0 

JMP NOJST 

DSZ CNT1,3 

JMP JUSTIT 

LDA 1,CNT2,3 

SGZ 1,1 

JMP LASTJST ://IF SO ONE 

STA l.CNTl,3 

ISZ LEAD.3 

ISZ NWID,3 

MKZERO 0.0 

STA O.CNT2.3 

JMP JUSTIT 

STA 1,TH1SL1NE,3 



LDA O.LEAD,3 
LDA 1.DELTA.3 
ADD 0.1 
STA 1,DELTA,3 
LDA 0,NWID,3 
UPDATEWIDTH: 

STA 0,WIDTH,2 
LDA 1,DESTX,2 
ADD 0.1 
STA l.SPCX,3 



://SEE IF IN MEASURE MODE 



;//IF ACTUALLY SCAN CONVERTING THEN 
://SEE IF JUSIFYING 

://ENTRY USED BY SMALLTALK FNDMS ROUTINE 
;//IF SO. SEE IF WE'VE 
;//COUNTED DOWN COUNTERS 



;//CNT2 ALREADY ZERO OR COUNTED DOWN? 
MORE TIME AND STOP 

;//UPDATE LEAD SO TABS WORK RIGHT 
://NWID+l NEW JUST SPACE 

;//ZERO CNT2 



;//SHUT OFF JUSTIFICATION FOR NEXT TIME 
;//AND UPDATEX 

://BUMP TAB DELTA - LEAD SET IN LNOUT.SR 



NOJST: 



CR: 

TAB: 

SPACE: 

.TAB WD: 
DOTAB: 



DOCR: 



MSPACE: 



MULSPC: 



MRTN: 



JMP RTN 

LDA 0.FSPACE,3 
JMP UPDATEWIDTH 

15 
11 
40 

TABWD 

JSRII .TABWD 

JMP UPDATEWIDTH 



;//SAVE PROPER RIGHTX 

;//FOR JUSTIFICATION 



;//IN DSPUTILS.SR 
://RETURNS TABWIDTH IN ACO 



STA O.JSTCR,3 ://SAVE FOR CHECKING IN JUSTIFICATION 

LDA l.SAV1.2;//GET CURRENT BYTE PTR INTO ACl 

LDA 3.SAV3.2 

JMP 1,3 ;//POP OUT OF SMF IN PUTCHARS 



LDA 0,TRLCHR,2 

SGZ 0.0 

JMP MULSPC 

ZER 0.0 

STA 0,TRLCHR,2 

STA 0,NSPC2,3 

LDA 1.SAV1.2 
STA l.LSTSP,3 
ISZ NSPC.3 
ISZ NSPC2,3 
JMP NOJST 



LDA 0.TRLCHR,2 
SNIL 0,0 
JMP @rEMPl,2 
LDA 3,.DSPGLBS 
LDA 0,CHAR,2 
LDA 1,LSTSP,3 
SNNIL 1.1 
JMP NOSPC 



;//SPACE EXCEPTION CODE WHEN MEASURING 
;//FIX MULTIPLE SPACES IF NECESSARY 



;//SAVE PTR TO THIS SPACE 
;//BUMP SPACE COUNTERS 

://IF NOT GO GET MORE CHARS 



;//NIL TRLCHR TELLS US PAST RIGHTMARGIN 

;//IF NOT GET MORE CHARS 
;//GET LAST CHAR INTO ACO FOR PSTRG 
://NIL LSTSP MEANS NO SPACES IN LINE 
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MOUT: 
NOSPC: 



LBYTEMSK: 

RBYTEMSK: 

C20: 

C257: 

.CLIP: 

ALSCANC: 



EXTENTION: 



EXCEPTION: 



NOSCANAL: 



LDA 1,SPCX,3 

STA 1,DESTX.2 
LDA 1.LSTSP.3 
INC 1,1 



LDA 3.SAV3,2 
JMP 1.3 

LDA l.SAVl,2 

JMP MOUT 



://MAKE LAST DEXTX 
://CORRECT FOR JUSTIFICATION 



;//SEND BYTE PTR BACK IN ACl AND CHAR CODE IN 
://ACO -- EXPECTED IN PSTRG.SR 

://SKPRTN OUT OF SMF IN PUTCHARS 



//NO SPACES IN LINE MEANS 
//SAVl HAS CORRECT 
//BYTE PTR FOR PSTRG.SR 



177400 
377 



CLIP 



20 
401 



STA 3,SAV3.2 ://BBSTABLE COMES IN AC2 

STA 1.SAV1.2 ;//SAVE SMFS BYTE PTR 



STA 0.CHAR.2 

LDA 1,WIDTH,2 

LDA 3.DESTX,2 

ADD 1.3 

STA 3.DESTX,2 

LDA 3.BBFONT.2 

ADD 0.3 

LDA 0,0,3 

ADD 0,3 

LDA 0,0.3 

STA 0,TEMP2,2 

LDA 1,C20 

MOVZR 0.0 SNC 

MOV 1.0 

STA 0.\VIDTH,2 

LDA 0,1,3 

LDA LLBYTEMSK 

ANDS 0,1 

LDA 0,DESTY,2 

STA O.TEMP3.2 

ADD 1,0 

STA 0,DESTY.2 

LDA 0,1.3 

LDA l.RBYTEMSK 

AND 0.1 

STA 1.HEIGHT.2 

SUB 1.3 

STA 3.SBASE,2 

LDA 0,CHAR,2 

LDA 1,SPACE 

SNE 0,1 

JMP EXCEPTION 

LDA 1,TAB 

SNE 0.1 

JMP EXCEPTION 

LDA 1,CR 

SNE 0,1 

JSRII .EXCEPT 
JSRII .CLIP 
JMP NOSCANAL 
MOV 2,0 
ZER 1,1 
BITBLT 
MOV 0,2 



;//SAVE CHAR CODE FOR EXCEPTION CHECKING 



://UPDATE X 

;//NOW GET FONT INTO AC2 



;//GET WIDTH WORD 
;//SAVE WIDTH WORD -- 



IN CASE OF EXTENTION 



;//SAVE DESTY FOR HIGHER ROUTINES 



;//GET HEIGHT/DISPLACEMENT WORD BACK 

;//MASK OFF HEIGHT 

;//ADDR OF WIDTH - HEIGHT SHOULD BE SBASE 



://FIX DESTY 



.EXCEPT: 



LDA 0,TEMP3,2 

STA DESTY 2 

MKZERO 0,0 ', //FIX SRCX ~ LEFTSIDE CLIPPING MAY ALTER 

STA 0,SRCX,2 

LDA 0,TEMP2,2 

MOVZR 0,0 SNC 

JMP EXTENTION 

JMP @SAV3,2 ;//AND GO FOR ANOTHER CHARACTER 

EXCEPT 



.END 



